00100	:DEFINE EDGRUN
00200	EDG:LOG
00300	EDG:RUN DSK EDGE[SYS,HE]
00400	EDG;GATER
00500	DRV;
00600	
00700	:DEFINE CURRUN
00800	CUR:LOG
00900	CUR:RUN DSK CURVE[SYS,HE]
01000	CUR;GATER
01100	DRV;
01200	
01300	:DEFINE CAMRUN
01400	CAM:LOG
01500	CAM:RUN DSK CAMERA[SYS,HE]
01600	CAM;GATER
01700	DRV;
01800	
01900	:DEFINE IIRUN
02000	DRV:LOG
02100	DRV:RUN DSK IIDRV[SYS,HE]
02200	DRV;GATER
02300	
02400	:DEFINE SIMRUN
02500	SIM:LOG
02600	SIM:RUN DSK SIMPLE[SYS,HE]
02700	SIM;GATER
02800	DRV;
02900	
03000	:DEFINE COLRUN
03100	COL:LOG
03200	COL:RUN DSK COLOR[SYS,HE]
03300	COL;GATER
03400	DRV;
03500	
03600	:DEFINE VERRUN
03700	VER:LOG
03800	VER:RUN DSK VERIFY[SYS,HE]
04000	VER;GATER
04100	DRV;
04200	
04300	:DEFINE HANDRUN
04400	HAND:LOG
04500	:RUN DSK HAND[SYS,HE]
04600	HAND;GATER
04700	DRV;
04800	
     

00100	:DEFINE MOVERUN
00200	MOVE:LOG
00300	:RUN DSK MOVE[SYS,HE]
00400	MOVE;GATER
00500	DRV;
00600	
00700	:DEFINE SETUP
00800	:IIRUN
00900	::TRACE
01000	::SET TYPE
01100	
01200	:DEFINE ANDY
01300	DRV:LOG
01400	:RUN DRIVER[H,JAM]
01500	::SET TYPE
01600	::TRACE
01700	DRV;GATER
01800